home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / rebelssource.lha / Sources / REFLECT.ASM < prev    next >
Encoding:
Assembly Source File  |  1994-07-09  |  832 b   |  47 lines
  1.  
  2. ; Hardcore MC8051 coding by Zulu & Grey of Rebels
  3.  
  4.         DEFSEG LED,start=0000H,CLASS=CODE
  5.  
  6.         SEG    LED
  7.  
  8. START:  clr    c
  9.         mov    p1.7,c
  10.         mov    p1.6,c
  11.         mov    p1.5,c
  12.         mov    p1.4,c
  13.  
  14. LOOP:
  15.         setb    p1.7
  16.         setb    p1.6
  17.         lcall   wait
  18.         mov     p1.7,c
  19.         setb    p1.5
  20.         lcall   wait
  21.         mov     p1.6,c
  22.         setb    p1.4
  23.         lcall   wait
  24.         mov     p1.4,c
  25.         setb    p1.6
  26.         lcall   wait
  27.         mov     p1.5,c
  28.         ljmp    loop
  29.  
  30. Wait:
  31.         mov     A,#1
  32.         mov     r0,a
  33. loop0:
  34.         mov     A,#100
  35.         mov     r1,a
  36. Loop1:
  37.         mov     a,#255
  38.         mov     r2,a
  39. Loop2:
  40.         djnz    r2,loop2
  41.         djnz    r1,loop1
  42.         djnz    r0,loop0
  43.         ret
  44.  
  45.         END
  46.  
  47.